home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / anspaint.arc / BLOAD.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-05-04  |  1.3 KB  |  57 lines
  1. 100  SCREEN 0,0,0,0                      'set up the screen
  2. 110  WIDTH 80
  3. 120  KEY OFF
  4. 130  COLOR 7,0,0
  5. 140  CLS
  6. 150  LOCATE ,,0
  7. 160  '
  8. 170  ON ERROR GOTO 630                   'error trapping
  9. 180  '
  10. 190  SCREEN ,,1,0                        'file list is on page #1
  11. 200  CLS
  12. 210  '
  13. 220  PRINT "BLOAD.BAS"
  14. 230  PRINT "Basic BSAVE screen loader (.BSV files only)"
  15. 240  PRINT "by Drew Olbrich"
  16. 250  PRINT
  17. 260  PRINT "Press ";CHR$(17);CHR$(196);CHR$(217);" to exit."
  18. 270  PRINT
  19. 280  '
  20. 290  FILES "*.BSV"                       'display files
  21. 300  '
  22. 310  LOCATE 25,1                         'prompt the user for a file
  23. 320  PRINT "Screen to load? ";
  24. 330  SCREEN ,,1,1
  25. 340  '
  26. 350  LOCATE 25,17
  27. 360  LINE INPUT;FILE$
  28. 370  IF FILE$="" THEN SCREEN ,,0,0:CLS:END               'check if done
  29. 380  IF INSTR(FILE$,".")=0 THEN FILE$=FILE$+".BSV"       'add an extension
  30. 390  '
  31. 400  SCREEN ,,0,1                        'screens are loaded into page #0
  32. 410  CLS
  33. 420  '
  34. 430  BLOAD FILE$                         'load in the screen
  35. 440  '
  36. 450  LOCATE 25,1
  37. 460  PRINT "Press any key...";
  38. 470  LOCATE ,,1
  39. 480  '
  40. 490  SCREEN ,,1,0                        'refresh prompt
  41. 500  LOCATE 25,1
  42. 510  PRINT STRING$(79,32);
  43. 520  LOCATE 25,1:PRINT "Screen to load? ";
  44. 530  '
  45. 540  SCREEN ,,0,0                        'wait for a key
  46. 550  WHILE INKEY$="":WEND
  47. 560  CLS
  48. 570  LOCATE ,,0
  49. 580  '
  50. 590  SCREEN ,,1,1                        'back to file list
  51. 600  '
  52. 610  GOTO 340
  53. 620  '
  54. 630  IF ERL=290 THEN PRINT:PRINT "No .BSV files available":PRINT:RESUME NEXT
  55. 640  ON ERROR GOTO 0
  56. 650  END
  57.